home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s2.arc / KINIT.MOD < prev    next >
Text File  |  1987-09-04  |  3KB  |  89 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Kermit_Init --- Initialize global Kermit variables      *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Kermit_Init;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Kermit_Init                                          *)
  10. (*                                                                      *)
  11. (*     Purpose:    Initializes global Kermit variables                  *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Kermit_Init;                                                  *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    I: INTEGER;
  21.  
  22. BEGIN (* Kermit_Init *)
  23.                                    (* Ascii is default if not given *)
  24.  
  25.    IF Kermit_File_Type_Var = Kermit_None THEN
  26.       Kermit_File_Type_Var := Kermit_Ascii;
  27.  
  28.                                    (* Default checksum method *)
  29.  
  30.    His_Chk_Type         := Kermit_Chk_Type;
  31.  
  32.                                    (* Initial packet size *)
  33.  
  34.    Kermit_Packet_Size   := Kermit_Init_Packet_Size;
  35.  
  36.                                    (* Set padding *)
  37.    My_Pad_Num    := 0;
  38.    My_Pad_Char   := Kermit_Pad_Char;
  39.  
  40.                                    (* Send a CR to start with *)
  41.  
  42.    Send_EOL      := ORD( Kermit_EOL );
  43.  
  44.                                    (* No 8-bit quoting unless binary with parity *)
  45.    Quoting       := FALSE;
  46.                                    (* Time out *)
  47.    His_TimeOut   := Kermit_TimeOut;
  48.  
  49.                                    (* 8-bit quote *)
  50.  
  51.    His_Quote_8_Char   := Kermit_Quote_8_Char;
  52.  
  53.                                    (* Repeating data off by default *)
  54.    His_Repeat_Char    := ' ';
  55.    Repeating          := FALSE;
  56.                                    (* Not logging out server *)
  57.    Logging_Out_Server := FALSE;
  58.                                    (* Display always on by default *)
  59.    Display_Status     := TRUE;
  60.                                    (* Assume no attributes         *)
  61.    Kermit_Attributes  := FALSE;
  62.                                    (* Default window size          *)
  63.  
  64.    His_Kermit_Window_Size := Kermit_Window_Size;
  65.  
  66.                                    (* Defaults for long packets    *)
  67.  
  68.    His_Kermit_MaxLX1 := Kermit_Extended_Block DIV 95;
  69.    His_Kermit_MaxLX2 := Kermit_Extended_Block MOD 95;
  70.  
  71.                                    (* Set capabilities *)
  72.    Kermit_Do_Long_Blocks := FALSE;
  73.    Kermit_Do_Sliding_Win := FALSE;
  74.  
  75.                                    (* Turn off attributes *)
  76.    Kermit_Do_File_Size   := FALSE;
  77.    Kermit_Do_File_Time   := FALSE;
  78.    Kermit_Do_File_Date   := FALSE;
  79.  
  80.    Kermit_File_Date      := -1;
  81.    Kermit_File_Time      := -1;
  82.    Kermit_File_Size      := 0.0;
  83.    Kermit_Window_Top     := 0;
  84.    Kermit_Window_Bottom  := 0;
  85.  
  86.    Kermit_Doing_Transfer := FALSE;
  87.  
  88. END   (* Kermit_Init *);
  89.